home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / misc / RecentScript.lha / RecentScript / Configs / YAM FTP-Mail.intro < prev    next >
Encoding:
Text File  |  1997-07-10  |  515 b   |  32 lines
  1. /* ARexx - FTP-Mail-Request for YAM 
  2.  *
  3.  * Script generated by RecentScript
  4. */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. SAY "Searching YAM ARexx port..."
  9.  
  10. IF ~SHOW(PORTS,'YAM') THEN DO
  11.    ADDRESS COMMAND 'run <>NIL: YAM:YAM NOCHECK HIDE'
  12.  
  13.    DO 3 WHILE ~SHOW(PORTS,'YAM')
  14.       ADDRESS COMMAND 'WaitForPort YAM'
  15.    END
  16.  
  17.    IF RC = 5 THEN DO
  18.      SAY "failed"
  19.      EXIT
  20.    END
  21.    stopyam = 1
  22. END
  23.  
  24. SAY "succeeded"
  25.  
  26. RXLIB "YAM"
  27. ADDRESS 'YAM'
  28.  
  29. SAY "Creating mail..."
  30.  
  31. ADDRESS COMMAND 'echo >t:RS.temp "begin*Nuuencode*Nreply-to %1*Nsize %4"'
  32.